#Simple parser
 $_ = "What did he say?";
  my @sentence;
  until (/\G$/gc) { # until pos at end of string
    if (/\G([A-Za-z']+)/gc) {
      push @sentence, [word => $1];
    } elsif (/\G([,.?!])/gc) {
      push @sentence, [punct => $1];
    } elsif (/\G\s+/gc) {
      # ignore whitespace
    } else {
      die "I cannot parse the remainder of ", /\G(.*)/gc;
    }
  }
  